﻿Public Class DangKyBUS
    Public Sub Insert(ByVal dk As DangKyDTO)
        Dim dkDAO As New DangKyDAO
        dkDAO.Insert(dk)
    End Sub
    Public Sub Delete(ByVal dk As DangKyDTO)
        Dim dkDAO As New DangKyDAO
        dkDAO.Delete(dk)
    End Sub
    Public Sub Update(ByVal dk As DangKyDTO)
        Dim dkDAO As New DangKyDAO
        dkDAO.Update(dk)
    End Sub
    Public Function GetAll() As DataTable
        Dim dkDAO As New DangKyDAO
        Dim dt As New DataTable
        dt = dkDAO.GetAll()
        Return dt
    End Function
    Public Function GetItemID(ByVal masv As String) As DataTable
        Dim dkDAO As New DangKyDAO
        Dim dt As New DataTable
        dt = dkDAO.GetItemID(masv)
        Return dt
    End Function
    Public Function GetItemTrangThai(ByVal trangthaiDK As Integer) As DataTable
        Dim dkDAO As New DangKyDAO
        Dim dt As New DataTable
        dt = dkDAO.GetItemTrangThai(trangthaiDK)
        Return dt
    End Function
End Class
